home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pcpm.arc / CPACOS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-04  |  2.5 KB  |  85 lines
  1. 10  PRINT " **** PROGRESS COST REPORT ****"
  2. 11  DEFINT B-Z:DEFSNG A
  3. 12  DIM X$(12),T(500)
  4. 13  DIM D$(500),S$(48),B(500)
  5. 14  DIM R3(500)
  6. 18  CLOSE
  7. 20  PRINT
  8. 22  FOR I=1 TO 12
  9. 24  READ X$(I)
  10. 26  NEXT I
  11. 28  DATA "  JANUARY"," FEBRUARY","    MARCH","    APRIL","      MAY","     JUNE"
  12. 30  DATA "     JULY","   AUGUST","SEPTEMBER","  OCTOBER"," NOVEMBER"," DECEMBER"
  13. 90  GOSUB 5000
  14. 92  GOSUB 4800
  15. 95  OPEN F$+".CST" FOR OUTPUT AS #2
  16. 101  B4=VAL(MID$(DATE$,1,2))
  17. 102  B5=VAL(MID$(DATE$,4,2))
  18. 103  B6=VAL(MID$(DATE$,9,2))
  19. 105  PRINT #2,"  PROJECT: ";P$;TAB(60);"FILE: ";F$
  20. 106  PRINT #2,G9$
  21. 107  PRINT #2,TAB(26);"RUN DATE: ";X$(B4);B5;",19";RIGHT$(STR$(B6),2)
  22. 109  PRINT #2,G9$
  23. 110  H1$="            ACTIVITY                 SUB NAME   TOTAL COST   %    AMOUNT  "
  24. 120  H2$="          DESCRIPTIONS               /COMMENT   / ACTIVITY  DUN  EXPENDED "
  25. 130  V$ =" \                                 \ \      \  ##########,  ### #########,"
  26. 140  V1$="                                                ----------      ----------"
  27. 150  V2$="                                   TOTALS =   $##########,      $########,"
  28. 165  PRINT #2,H1$
  29. 167  PRINT #2,H2$
  30. 170  PRINT #2,G9$
  31. 190  INPUT "Want to suppress Zero-cost activities (Y/N) ",Q$
  32. 200  FOR I=1 TO N
  33. 210  IF LEFT$(Q$,1)="N" THEN 230
  34. 220  IF T(I)=0 THEN 260
  35. 230  PRINT #2, USING V$;D$(I),S$(B(I)),T(I),R3(I),T(I)*(R3(I)/100)
  36. 240  X=X+T(I)
  37. 250  Z=Z+T(I)*(R3(I)/100)
  38. 260  NEXT I
  39. 270  PRINT #2,V1$
  40. 280  PRINT #2, USING V2$;X,Z
  41. 281  PRINT #2,G9$
  42. 282  PRINT #2,G9$
  43. 283  IF LEFT$(Q$,1)<>"N" THEN PRINT #2,"     NOTE: Zero-cost activities are suppressed"
  44. 284  PRINT
  45. 285  PRINT USING "      TOTAL ESTIMATE = ###########, AMOUNT EXPENDED = ###########,    ";X,Z
  46. 286  PRINT
  47. 290  CLOSE #2
  48. 292  PRINT " **** ";F$".CST HAS BEEN CREATED ****"
  49. 294  PRINT
  50. 296  INPUT "Press ENTER to continue ",Q$
  51. 300  CHAIN "CPAMENU"
  52. 4800  ON ERROR GOTO 4880
  53. 4805  OPEN F$+".SBC" FOR INPUT AS #1
  54. 4810  I=0
  55. 4820  I=I+1
  56. 4825  IF I=49 THEN 4860
  57. 4830  IF EOF(1) THEN 4860
  58. 4840  INPUT #1,S$(I)
  59. 4850  GOTO 4820
  60. 4860  PRINT "**** FILE ";F$;".SBC READ -";I-1;"SUBCONTRACTORS READ ****"
  61. 4865  CLOSE #1
  62. 4870  RETURN
  63. 4880  PRINT "**** NO SUBCONTRACTOR FILE - CONTINUING ****":RESUME 95
  64. 5000  REM **** READING IN ALREADY CREATED INPUT FILE ******************
  65. 5010  INPUT "Enter the name of the input file [.CPM] ";G$
  66. 5015  IF G$="Q" OR G$="QUIT" THEN 3500
  67. 5020  P=INSTR(1,G$,"."):IF P<>0 THEN F$=LEFT$(G$,INSTR(1,G$,".")-1) ELSE F$=G$
  68. 5030  IF LEN(F$)>8 THEN PRINT "**** NOT A VALID PCPM FILE ****":BEEP:GOTO 5010
  69. 5035  ON ERROR GOTO 5300
  70. 5037  G$=F$+".CPM"
  71. 5040  OPEN G$ FOR INPUT AS #3
  72. 5050  INPUT #3,P$,T6$,DA$
  73. 5060  I=0
  74. 5070  I=I+1
  75. 5080  IF EOF(3) THEN 5120
  76. 5090  INPUT #3,D$(I),S,F,O2,D,A6,R3(I),B(I),T(I)
  77. 5100  IF I/10=INT(I/10) THEN PRINT I;
  78. 5110  GOTO 5070
  79. 5120  N=I-1
  80. 5130  M6=VAL(LEFT$(DA$,2)):D6=VAL(MID$(DA$,3,2)):Y6=VAL(RIGHT$(DA$,2))
  81. 5140  CLOSE #3
  82. 5150  PRINT " **** INPUT FILE READ ****"
  83. 5160  RETURN
  84. 5300  PRINT "**** FILE DOES NOT EXIST - TRY AGAIN ****":BEEP:CLOSE #3:RESUME 5000
  85.